home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 September / Ahoy_Magazine_87-09_1987_Double_L_Side_A.d64 / No News 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  32 lines
  1. 10 rem *** no news (64) *** buck childress ***
  2. 20 rem *** p.o. box 13575 salem, or 97309 ***
  3. 30 printchr$(147)"loading and checking data line:":j=53000
  4. 40 forb=0to11:reada
  5. 50 ifb=0thenl=peek(64)*256+peek(63):printchr$(19)tab(31)l:print
  6. 60 ifa<0ora>255then80
  7. 70 pokej+b,a:x=x+a:d=d+1:nextb:reada:ifa=xthen90
  8. 80 print"error in data line:"l:end
  9. 90 x=0:j=j+12:ifd<240then40
  10. 100 print"the data is ok...":print
  11. 110 print"sys 53000 toggles on and off...":end
  12. 120 data169,79,32,210,255,160,207,204,3,3,240,19,1581
  13. 130 data173,2,3,174,3,3,141,251,207,142,252,207,1558
  14. 140 data169,78,162,59,76,50,207,169,70,32,210,255,1537
  15. 150 data174,251,207,172,252,207,142,2,3,140,3,3,1556
  16. 160 data76,210,255,32,96,165,134,122,132,123,32,115,1492
  17. 170 data0,170,240,243,162,255,134,58,176,3,76,156,1673
  18. 180 data164,32,121,165,169,1,141,249,207,169,0,160,1578
  19. 190 data255,141,248,207,141,250,207,141,246,207,200,185,2428
  20. 200 data0,2,240,107,201,34,208,6,77,246,207,76,1404
  21. 210 data99,207,174,246,207,208,235,201,138,240,8,201,2164
  22. 220 data147,240,4,201,162,208,223,165,214,141,247,207,2159
  23. 230 data174,247,207,160,0,24,32,240,255,169,224,160,1892
  24. 240 data207,32,30,171,238,248,207,208,28,206,249,207,2031
  25. 250 data208,23,169,20,141,249,207,169,128,77,250,207,1848
  26. 260 data141,250,207,240,215,169,18,32,210,255,76,140,1953
  27. 270 data207,32,228,255,201,78,240,4,201,89,208,212,1955
  28. 280 data32,210,255,201,78,208,3,76,116,164,169,13,1525
  29. 290 data32,210,255,76,225,167,65,46,72,46,83,46,1323
  30. 300 data65,82,69,32,89,79,85,32,83,85,82,69,852
  31. 310 data63,32,40,89,47,78,41,146,32,0,0,0,568
  32.